Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління
Лабораторна робота №1з курсу «Об'єктно-орієнтоване програмування» Середовище програмування DELPHI Мета роботи: Вивчення основних опцій та можливостей меню для створення проектів у середовищі програмування Delphi Завдання Обчислення N-го степеня випадкового числа з діапазону [2..10]. N-задається з клавіатури. Текст програми: unit lab1_1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Button1: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var dobytok,chuslo:integer; i: integer; cod:integer; ed:string[9]; begin Val(Edit1.Text,chuslo,cod); dobytok:=1; for i:=1 to chuslo do dobytok:=dobytok*i; if chuslo=0 then dobytok:=0; Str(dobytok:9,ed); Edit2.Text:=ed; end; end. Результат
Висновок: На лабораторній роботі я вивчив основні опції та можливості меню для створення проектів у середовищі програмування Delphi.